(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      5089,        148]
NotebookOptionsPosition[      3901,        119]
NotebookOutlinePosition[      4244,        134]
CellTagsIndexPosition[      4201,        131]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:590d\:5206\:6790\:51fd\:6570", "Title",
 CellChangeTimes->{{3.7835725937082567`*^9, 
  3.7835726105532007`*^9}},ExpressionUUID->"ae3c85e6-a525-4c29-8708-\
f9a8d4981af4"],

Cell[CellGroupData[{

Cell["\:5bfb\:627e\:6240\:6709\:5947\:70b9", "Section",
 CellChangeTimes->{{3.7835726280752263`*^9, 
  3.783572633691205*^9}},ExpressionUUID->"77874208-38d9-4b65-a4e4-\
df81fb8c3f7d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindSingularities", "[", 
   RowBox[{"f_", ",", "x_"}], "]"}], ":=", 
  RowBox[{"Reduce", "[", 
   RowBox[{"!", 
    RowBox[{"FunctionDomain", "[", 
     RowBox[{"f", ",", "x", ",", "Complexes"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7835727064894247`*^9, 3.783572741768382*^9}, {
  3.7835730354995503`*^9, 3.783573037621846*^9}, {3.7835731103548985`*^9, 
  3.7835731423777547`*^9}, {3.783573179667186*^9, 3.783573237080291*^9}, {
  3.783573278667191*^9, 3.7835732843255606`*^9}, {3.7835734530508523`*^9, 
  3.7835734559351068`*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"704652d5-0564-424e-a9be-e386dae4e0de"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindSingularities", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"Sin", "[", 
     RowBox[{"x", "+", "I"}], "]"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.7835731532487125`*^9, 3.783573195753975*^9}, {
  3.783573428451935*^9, 3.783573440634034*^9}, {3.783573608447554*^9, 
  3.7835736166196966`*^9}},
 CellLabel->"In[90]:=",ExpressionUUID->"3e19dd6e-78cd-42a7-95ca-bb495b808f89"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"\[ImaginaryI]", " ", "x"}]}], ")"}]}], "\[Pi]"]}], 
  "\[Element]", 
  TemplateBox[{},
   "Integers"]}]], "Output",
 CellChangeTimes->{{3.783573173641302*^9, 3.783573196458063*^9}, 
   3.7835732400094123`*^9, 3.7835732878222427`*^9, {3.7835734300563765`*^9, 
   3.7835734589949217`*^9}, 3.7835736182323833`*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"1ca32fd5-bcb9-4b08-8e20-6dcbe20f0e73"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"Point", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{"ComplexExpand", "[", 
       RowBox[{"y", "=", 
        RowBox[{"1", "+", 
         RowBox[{"2", "I"}]}]}], "]"}], "]"}], ",", 
     RowBox[{"Im", "[", 
      RowBox[{"ComplexExpand", "[", 
       RowBox[{"y", "=", 
        RowBox[{"1", "+", 
         RowBox[{"2", "I"}]}]}], "]"}], "]"}]}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.783573743094434*^9, 3.7835737656231747`*^9}, 
   3.783573820546381*^9, {3.78357391289631*^9, 3.7835739872983027`*^9}, {
   3.7835740183168783`*^9, 3.783574022701151*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"b05469e4-c361-4357-821d-df102204d60a"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7835770527177258`*^9, 
  3.7835770527267027`*^9}},ExpressionUUID->"54616ed6-5d53-4bb5-ac9e-\
a731ff2f2799"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7835740324015083`*^9, 
  3.7835740325346622`*^9}},ExpressionUUID->"d0655ccf-c41e-4fae-b7fd-\
b1f5e6c4aa8b"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7835736403312726`*^9, 
  3.783573641231864*^9}},ExpressionUUID->"1e48013b-d5f5-4fb1-8f7a-\
6dccf0bb037c"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1280, 637},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 177, 3, 96, "Title",ExpressionUUID->"ae3c85e6-a525-4c29-8708-f9a8d4981af4"],
Cell[CellGroupData[{
Cell[782, 29, 183, 3, 67, "Section",ExpressionUUID->"77874208-38d9-4b65-a4e4-df81fb8c3f7d"],
Cell[968, 34, 660, 13, 28, "Input",ExpressionUUID->"704652d5-0564-424e-a9be-e386dae4e0de"],
Cell[CellGroupData[{
Cell[1653, 51, 422, 9, 28, "Input",ExpressionUUID->"3e19dd6e-78cd-42a7-95ca-bb495b808f89"],
Cell[2078, 62, 541, 14, 51, "Output",ExpressionUUID->"1ca32fd5-bcb9-4b08-8e20-6dcbe20f0e73"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2656, 81, 730, 18, 28, "Input",ExpressionUUID->"b05469e4-c361-4357-821d-df102204d60a"],
Cell[3389, 101, 156, 3, 28, InheritFromParent,ExpressionUUID->"54616ed6-5d53-4bb5-ac9e-a731ff2f2799"]
}, Open  ]],
Cell[3560, 107, 156, 3, 28, InheritFromParent,ExpressionUUID->"d0655ccf-c41e-4fae-b7fd-b1f5e6c4aa8b"],
Cell[3719, 112, 154, 3, 28, "Input",ExpressionUUID->"1e48013b-d5f5-4fb1-8f7a-6dccf0bb037c"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

